perm filename SND.FAI[CMS,LCS] blob
sn#252764 filedate 1976-12-11 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00007 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 ,¬∪≥M%(∪¬'≠¬_9
β∩~)ε```@h@``β↓AL$Lb>
↓!A@4T→AAAβ)↓AAβ↓P%α∀z5αJ-~⊗PQ(3ββεεrββεεβ(H4q*H1∞B*:⊗6B(H1∀B(→Qλ⊃λ_∀B"&!"Plεε∞(εε
A∀⊃q5∧
P3β!(lε⊗(εε
b( H1λ∪jZβ"PfεLDλ3Q∪)1"PeG1"@↓A+R3J84Uα(~s0S¬hP2#!'h∀P)Q"B4jj⊂r∞A⊗mmb'6β"B*:T⊂sπ!,mma↔l#"A~uT∀g!,mma↔lC"A~uP.A⊗-mB'6c"C!!4uVπ!,-mA↔mβ"A~uV.A⊗mmb'6#"B*:Tt∞A⊗mmb'6C"B*:SS2'!,mma↔mc"AQB4uJ
P.B&6mb.f⊗β"B*:PtP'!,mma↔l,#!!4uT
(NB,fvb.l&!"B4jhtPNA⊗mmb'6,c"AQB1⊂(JNB,fvb.l&A"B"&6mb.f⊗#"B*h3∞B&6mb.f⊗C"B)hS⊃nA⊗mmb'6-c"A_1∀NA⊗mmb'6Lβ"A⊃,mma↔lL#!!",mfq.lLD∧↔h⊃Hd∪04I1"B2ij∞B,↓QC"Nd q∃λ
(3( D 3U⊃**4∃λ
h0u∪j*c"B)Iph&εβ"AQB24J_.B2IZα23JJU".f⊗λ¬T,ε!"B2**0NB*(4⊃0*DK≡f⊗,%␈A↔l,ε4(&ε
β"A⊃"B3IY0.B*(4⊃0*Dk≡f6le␈A↔l,εT(&ε
c"A⊃,mma⊃.l,ε⊗λ↔hλhH∪0*)c"C!'h∩+it∀u0J1"Nb!→⊃1∪dh-fvl
β!'b"2)8Uh↔dε-mmfVβ"@↓A3∪pdε-↓QC"TjH4NB)H⊂2"&&,C"A~u⊂6A_⊂1∀AQB4uλ≠B1⊂(JJl#!!4u⊂+!5P3↓QS∪sjπB4∩
↓"B4Iy⊗B1λ_∀C"A~Ss⊗A_⊂1∀E6#"B* ∀β"A~Ss⊗A~P3β!!2TtA~⊃∀⊗!QB2S*↓3∪sj↓"C"JH∀⊗.A→⊃⊗2!~∩31&↔B,β!*∩31'!3⊃⊗ ⊃5∩3(VNB,ffβ"U yt∞B)→Vβ"A_SQ"*Istβ!!23V!QB0SHQ5∩3(Q"B2J:B3⊃
#"B**∀c"AQR3U
*.B4 λ#"B*K⊂#"A~∩⊂#!!3⊃⊂!~∀P#!!03Q ⊃,-c!!0s4 ⊃,,#!!0Q4!_⊃∃β!!5⊂6↓QB3⊃λ≠α1Uλ)β"B*:⊂"5 →1,#!!4∪⊂!QB5⊂+↓"B4 H#"B**∩#"HH∃∞B* ⊂#"A~⊂6β!!4∪⊂!QB2S*↓3q∃↓QB2S*↓23U
*#"QJHS∞B&↓"B,Fεβ"B&6β"A⊗mβ!!,lβ_βE∧Y[LεE∧YMZεE∧L[[εEαY[[FBβ≥P)'SP)"iQj
; OCT DDT CK FOR BBIT?
; CK OTHER PROM AND BRK ?
; SETUP IRQV WITH ? OR BRK FOR OTHER ROM
SVNUM←17 ∀ε∪¬ ∪)>d@~∀∪→=ε@bn\h``∩$w'⊃∨U→λA¬∀@bnnP``~∀4∀∪¬%-π⊗t∪M)β4∪M-α∩wMβ-
A∧@∩∩d4∀∩∪!1α∩∩w≥(A∨1λA!&$∩b~∀$∪!⊃α$∩v∩∩$b~∀∩%β≥ ∩%¬¬∪($v∩∩∩H~∀∩∪ ≥
∪¬I↔∪≤∩mβ≥λA
⊗A
∨HA¬%⊗$∩d~∀$∪→ βh∪'-α$v∩∩∩H~∀∩∪)≠!∪≤%∪%#∧$w→'∀A%)U%≤A)<A∪%#X@@00L0~∀∩$∩∩v∩$@@@@@@bf4∀~∀∪= (t∪M)β4∪M-α∩wMβ-
A∧∩∩∩d4∀∪¬%-∪≤t∪1 α∪≥5∪α∩v$∩∩f~(∩∪')∧∪'-≥5∩∩w'¬-
A≥5∪α∩∩L~∀∩∪1 β∩∪I)∩∩v$∩∩d~(∩∪')∧∪≥≠∪∧∩w
∪`A∪(∩$∩f~∀$∪')1h∪'-0$w'β-∀A0∩∩@@@@00d04∀∩∩∩$v∩∩@@@@@bj~∀4∀vA%∃'(A$←≡∩∪Mβ-
AA$@}~(∪π%β|bnfn\j@@.%!%β>DnfnnP~∀∪πI¬>bnLnnn@.∪!% >bnf\nl~∀4∀∩∪→⊃1∩∩f$v∩∩∩H~∀∪'Y!∪αt%→ β0%!%α∩m'β-
↓π$A)!≤A ⊂∩f~∀$∪')βi0∪'-A%α∩v$∩∩d~(∩∪→ ¬∩∩`∩l∩∩∩d4∀∩∪'Qβ0∪!Iα∩w%∃!→βπ∀A/∪) A5%=&∩f~(∩∪ `∩∩v∩$∩b~∀$∪¬!_%'-!∪∧∩v∩∩$d~∀~(∩∪')`∪!%∧$w
∨$↓∨+)!U(∩@@@@@0`f0~∀$∩∩∩v$∩@@@@@@b`~∀vA⊃!2@]1∨ε~∀$∪')3h∪'-2$w'β-∀A2∩∩$d~∀∩%!→α∩$v∩∩∩D~∀∩∪M)β4∪M-!&∩m'β-
↓!&Aβ9λA!ε$∩d~∀$∪!→α$∩v∩∩$b~∀∩%')β4%'-!π0∩v∩∩$d~∀∩%)β2∩$w→∨β⊂A2A/%)⊂A!
_∩b~(∩∪!→∧∩∩v∩$∩b~∀$∪')βh∪'-!
⊂∩v∩$∩d~∀$∪)'0$∩v∩∩$b~∀∩%')14%'-' $w'β-∀A' ∩$d~∀∩%)β0∩$w→∨β⊂A0A/%)⊂A!
⊂@@@@@00D0~∀∩$∩∩v∩$@@@@@@bl4∀∩∩∩$v∩∩@@@@@`000~(∩∩∩∩l∩∩@@@@@@Xd~∀_∪'Qβλt∪M)34∪⊃β $∩mβ≥λA⊃β $∩$d~∀∩%')14% β $,b∩v∩$∩d~∀%∂-β_h∪')3h∪β $$w')U Aβ H∩∩d~(∩∪')a4∪β HVb∩v$∩∩d~(∩∪→ a∩∩`∩l∩∩∩d4∀∩∪→⊃β∪0∪⊃β $∩m∂(AYβ_A
I∨~A↓⊃β $∩H~∀∩∪M)β4∪Yβ_∩v$∩@@@@@00H0~∀∩$∩∩v∩$@@@@@@bh4∀vA↔λA'πβ8~∀∪↔Mπβ≤t%∃'$∪1 !2∩m !2A⊃β $A¬≥λA-¬_∩f~(∩∪∃'H∪∪↔¬\∩w∂PA↔¬π!$∩∩f4∀∩∪β9 ∩∩b\∩w∂PA%∪λ↓∨A∃U≥⊗∩d4∀∩∪π5!∩∩b@∩v∩∩$d~∀∩%¬"∪⊃∨(∩w∃1β~∩$∩d~∀$∪→ 1h∪≥
→≤∩v∩∩$d~∀∩%¬πε∪≥≥+~∩m¬%β≥
⊂A∨≤↓≥+~∩$d~∀∩%¬!_∪a≥1(∩m∪A≥<A ↓)⊃≤↓0A≥a(00d`~∀∩∩$∩v∩∩@@@@@bp~(vA @~∀∩∪1 β4∪⊃β $∩m A⊃%∞A1∨.@∩$d~∀∩%∪≥0∩$w0A>`∩∩∩D~∀∩∪M)β∪0%β $∩m∪≤A↓¬ $∩∩H~∀vA∃1β~A91(~(∪1≥1Pt∪→ a∩∩d∩l∩@∩∩H~∀∩∪M)14∪9
→∞∩l∩∩∩d4∀∩∪→⊃34∪β⊃$∩v∩$∩d~∀$∪→ 1h∪β $,b∩v∩$∩d~∀$∪∪≥2$∩wβ HA>Aβ⊃$Vb∩$b~∀∩%¬≥
∪M)βλ$v∩∩∩H~∀∩∪%≥0∩∩l∩∩∩b4∀∩∪∃5 ∪'Qβλ∩v$∩@@@@@00L0~∀∩$∩∩v∩$@@@@@@d`4∀vAaβ~~∀%$c>Dnn``@~∀∪ =(t∪→⊃14∪≥→→∞∩w
⊗A
∨HA≥≡A9+~∩∩H~∀∩∪ !_∪π-∨$∩v$∩∩d~(∩∪∪≥`∩∩v∩$∩b~∀$∪')1h∪≥
→≤∩v∩∩$d~∀∩%→ 34% β $$w∂(↓ β $↓
∨$A¬ $∩d4∀∩∪→⊃14∪ ¬ $Vb$v∩∩∩H~∀∩∪)≠ ∪∂Yβ_∩v$∩@@@@@00L0~∀∩$∩∩v∩$@@@@@@bh4∀~∀∪
↔∨$t%¬≥
∪
∨≥(∩mπ⊗A
=$Aπ∨9)∪≥+∀∩d~∀$∪→ 0%$b∩l∩∩∩f4∀∩∪∪90∩∩v$∩∩b~(∩∪¬D∪↔'π¬≤∩wπ,A
∨$↓∨)⊃HA!%∨4∩d~∀$∪∃≠ %$b∩l∩∩@@@@@0`f0~∀$∩∩∩v$∩@@@@@@bD~∀∩∩$∩v∩∩@@@@00004∀∩∩∩$v∩∩@@@@@nn~∀_vA∂∃(A-β0~∀∪∂9+~t∪ ≠∩∪≥=5%≡∩m∪A
%%'(A9+~∩∩H~∀∩∪1 1∩∩@∩v∩∩$d~∀∩%')14% β $$w)⊃8A5%<Aβ $↓ !2∩H~∀∩∪M)14∪⊃β $VD∩v∩∩$d~∀∪9∨5%≡h∪→ 1$∩d⊂¬XH$%HhP&∩&;P&εNeP&∩ε%⊂%nNDJ~Qα"∩J⊗≥→α2⊗5 %H4PH&J>eP&∩ε%⊃-D ↔1⊂HK!Q HLH[HK1⊃⊂KλQ!⊂L∃ A∀$Lq↔5≤D_jB∧lz(PHK!Q HLz(∃PLH_E⊂K8→d"∧_HB∧\(9¬⊂H⊗!PPH~:D
P_H∀%⊂↔1⊂HK!Q HM:K¬PLhiD8K:8U"∧jYR∧ S⊃b!⊗C"B!→S4α):pp3A↔b"(∧∧λλλββfβ!!"""'1"(λ∧∧λλλε&C"NdλssU →U1#!!0ssJGB3⊃λ≠Vα4jhtP"':Q4u zQ(⊂j(H⊂3HD⊂tP!⊗C"B!~u⊂6↓_tP"'1"",aQB"1λ[α".a⊃",#!!"1⊃+↓"]DBDXFEαDa(&αagg*α]DDPλ⊂⊂⊂⊂ε→εB∧DDDNDDD\CEεE∧Bf",-αik)hα]cbjλ)h∧DBYεE∧Bj,)DB]DDDLFE∧DS",m∧Tk,D]Qbj⊂,BDDYεBεE∧DS",$DKZ∧]DBDYεEαcbj)N∧f" V,∧ik∀!d∃Zα]i"iU'i"P∀!P g⊃⊂()PαYεE∧Bh$ DB]j'P∀j aeBDXFEαDdg,αD]DDBXFE∧Ba&dDQbj)DNDDP⊂λ⊂⊂⊂ε→εEαDDD]BDP⊂⊂λ⊂⊂⊂_LFEεEαDh& BD]cbU⊂ DDBXFE∧Bf",-αik'&RD]DDBYεE∧Bij,∧S&d`DNi"ij∪3
LDXZ SVX ;GET X 2
RTI ; __1_
; 9
; ____
; 57
; LED OUT
LDPY: LDAI 54 ;SET DDBIT 2
STA CRB ;AND PULSE IN CRB 3
LDXI 5 ; 2
LDYI 5 ; _2_
; 9
ROT: ROLZ VAL ;ROTATE VAL AND 2
ROLZ DADR ;DADR LEFT 4 2
ROLZ DADR+1 ;BITS AT A TIME 2
DEY ; 1
BNE ROT ; _2_
; 9
LDAZ VAL ; 2
ANDI 17 ; 2
ORAX DTBL ; 3
STA PRB ;DPY IT 3
LDYI 4 ; 2
DEX ; 1
BPL ROT ;DO REST 2
RTS ; __1_
; 16
DTBL: 0 ; 1
20 ; 1
40 ; 1
60 ; 1
100 ; 1
120 ; __1_
; 6
; INKBW
IKBW: LDAI 6 ;SET DDBIT 2
STA CRA ;AND ↑BIT IN CRA 3
CKMOR: BIT CRA ;TEST CRA FOR INPUT 3
BPL CKMOR ;TRY AGAIN 2
LDA PRA ;GET CHR 3
RTS ;RETURN __1_
; 14
; ROM INTER VECTS
LOC 177772
NMIV: ABSO NMIA ; 2
RSTV: ABSO ODT ; 2
IRQV: ABSO IRQA ; _2_
; 6
; ____
; 60
; 62
; 77
; 57
; __60_
END ; 256